home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Documentation / WW3DKit / A_IntroWW3DKitExampleFiles / model.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  215 b   |  13 lines
  1. set roll 45
  2. set radius 1
  3. set zMin -1
  4. set zMax 2
  5. set thetaMax 360
  6.  
  7. startShape example1
  8.     Rotate $roll 1 0 0
  9.     Disk $zMin $radius $thetaMax
  10.     Cylinder $radius $zMin $zMax $thetaMax
  11.     Disk $zMax $radius $thetaMax
  12. endShape
  13.